home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 June / PCWorld_2003-06_cd.bin / SOFTWARE / TOPWARE / XQ / SETUP.EXE / {app} / plugins / XQ WMP 8.xpl < prev    next >
Text File  |  2002-11-05  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Automatic Updates"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.00"
  9. "TEXT 1"="Enable automatic update of WMP"
  10. "TEXT 2"="Enable automatic Codec downloads"
  11. "DESCRIPTION 1"="Option #1: Windows Media Player (WMP) will check from time to time if a new version of WMP is available by connecting to the microsoft.com site. If you do not want this to happen, disable the first option."
  12. "DESCRIPTION 2"="Option #2: Codecs are what Windows Media Player uses to decode encoded media files (such as MP3, MPEG, WMA etc.). If you try to play a file that Windows Media Player does not have a codec for, enabling this option will allow it to download one from Microsoft's web site automatically. Disabling this will make it ask you first."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18. sV1="HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\DisableAutoUpdate" 'dw
  19. sV1_b="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MediaPlayer\EnableAutoUpgrade" 'str
  20.  
  21. sV2="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\NoCodecDownload" ' DW
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize  
  25.   i=RegReadValue(sV1)
  26.   if i=0 or IsEmpty(i) then SetUIElement 1,true
  27.  
  28.   i=RegReadValue(sV2)
  29.   if i<>1 then SetUIElement 2,true
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36.  
  37.  
  38. 'Called when the Plugin should apply the changes
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  Call Wrt(1,sV1)
  41.  
  42.  If GetUIElement(1)=true then
  43.     if RegValueExists(sV1_b) then Call RegDeleteValue(sV1_b)
  44.  else
  45.     Call RegWriteValue(sV1_b,"no",1)
  46.  end if
  47.  
  48.  
  49.  Call Wrt(2,sV2)
  50. END SUB
  51.  
  52. Sub Wrt(ITM,VAL)
  53.  b=GetUIElement(ITM)
  54.  if b=false then
  55.     Call RegWriteValue(VAL,1,2)
  56.  else
  57.     s=RegReadValue(VAL)
  58.     if IsEmpty(s)=false then
  59.        Call RegDeleteValue(VAL)
  60.     end if
  61.  end if
  62. end sub
  63.  
  64.  
  65.  
  66. 'Called when the Plugin is about to be removed from memory
  67. SUB Plugin_Terminate
  68. END SUB
  69.  
  70.